Pre Analysis top 7 edges: deciding the course.

Course of direction per edge.

Analysis

All points.

By hour

General

 df_superhotedges_april16pt %>% 
    merge(y = df_osm_edge_ids , using = way_id) %>% 
    ggplot(aes(x= track, fill = factor(address))) + 
    geom_histogram(binwidth = 45) +
    facet_wrap(~type) +
    scale_x_continuous(breaks = seq(0,400,45))+ 
    ggtitle("Track histogram by type of street") 

dens2 <-df_superhotedges_april16pt %>% 
  merge(y = df_osm_edge_ids, using = way_id) %>% 
  ggplot(aes(x= track)) +
  geom_density(aes(group=factor(address), color=address)) + 
  ggtitle("Track density group by street type(WW)") + 
  xlab("Grades(º)") +
  ylab("Density") +
  facet_wrap(~type)
ggplotly(dens2)  

We recommend that you use the dev version of ggplot2 with `ggplotly()`
Install it with: `devtools::install_github('hadley/ggplot2')`

We recommend that you use the dev version of ggplot2 with `ggplotly()`
Install it with: `devtools::install_github('hadley/ggplot2')`
the condition has length > 1 and only the first element will be usedthe condition has length > 1 and only the first element will be used

[[1]]

dens_hr2 <- function(index) {  df_superhotedges_april16pt %>% 
  filter( way_id == df_osm_edge_ids[index,1] ) %>% 
  merge(y = df_osm_edge_ids, using = way_id) %>% 
  ggplot(aes(x= track)) +
  geom_density(aes(group=factor(hour(time)), color=factor(hour(time)))) + 
  ggtitle(paste("Track density by edge and hour (WW)",df_osm_edge_ids[index,2],df_osm_edge_ids[index,1], sep = " " )) + 
  xlab("Grades(º)") +
  ylab("Density") 
          
}
lapply(1:7, FUN = dens_hr2)

[[1]]

[[2]]

[[3]]

[[4]]

[[5]]

[[6]]

[[7]]

dens_hr4 <- function(index) { df_superhotedges_april16pt %>% 
  filter(way_id == df_osm_edge_ids[index,1]) %>% 
  ggplot(aes(x=time, y = track, color = factor(session_id))) + 
  geom_point() + 
  ggtitle(paste("Tracks",df_osm_edge_ids[index,2],df_osm_edge_ids[index,1], sep = " " )) + 
  geom_hline(aes(yintercept = 90)) + 
  geom_hline(aes(yintercept = 180)) +
  geom_hline(aes(yintercept = 270)) +
  theme(legend.position="none")+ 
  ggtitle(paste("Track points by edge and session(WW)",df_osm_edge_ids[index,2],df_osm_edge_ids[index,1], sep = " " )) + 
  xlab("date") +
  ylab("track(º)") 
          
}
lapply(1:7, FUN = dens_hr4)

[[1]]

[[2]]

[[3]]

[[4]]

[[5]]

[[6]]

[[7]]

dens_hr5 <- function(index) {df_superhotedges_april16pt %>% 
  filter(way_id == df_osm_edge_ids[index,1]) %>% 
  ggplot(aes(x=factor(session_id), y=track, color= factor(segment_id))) +
  geom_boxplot(outlier.shape = NA)+ 
  ggtitle(paste("Tracks",df_osm_edge_ids[index,2],df_osm_edge_ids[index,1], sep = " " )) + 
  geom_hline(aes(yintercept = 90)) + 
  geom_hline(aes(yintercept = 180)) +
  geom_hline(aes(yintercept = 270)) +
  theme(legend.position="none")+ 
  ggtitle(paste("Median of the track by session and segments",df_osm_edge_ids[index,2],df_osm_edge_ids[index,1], sep = " " )) + 
  xlab("Grades(º)") +
  ylab("Density") 
          
}
lapply(1:7, FUN = dens_hr5)

[[1]]

[[2]]

[[3]]

[[4]]

[[5]]

[[6]]

[[7]]

With the way

dens_hr3 <- function(index) {  df_superhotedges_april16pt %>% 
  filter( way_id == df_osm_edge_ids[index,1]) %>% 
  merge(y = df_osm_edge_ids, using = way_id) %>% 
  ggplot(aes(x= track)) +
  geom_density(aes(group=factor(course), color=factor(course))) + 
  ggtitle(paste("Track density by edge and course (WW)",df_osm_edge_ids[index,2],df_osm_edge_ids[index,1], sep = " " )) + 
  xlab("Grades(º)") +
  ylab("Density") 
          
}
lapply(1:7, FUN = dens_hr3)

[[1]]

[[2]]

[[3]]

[[4]]

[[5]]

[[6]]

[[7]]

longer object length is not a multiple of shorter object lengthlonger object length is not a multiple of shorter object length